home *** CD-ROM | disk | FTP | other *** search
/ Cigar Companion Interactive / Cigar Companion Interactive.iso / pc / cigars.dxr / BUYING AND STORING_201.ls < prev    next >
Encoding:
Text File  |  1997-08-27  |  297 b   |  10 lines
  1. on mouseDown
  2.   set doIt to buttonIt()
  3.   if doIt <> 0 then
  4.     hiliteButton(doIt, the clickOn)
  5.     set mysubSubTopic to word the number of words in doIt - 1 of doIt
  6.     set myType to value("#" & word the number of words in doIt - 2 of doIt)
  7.     initBuyingFrames(myType, mysubSubTopic)
  8.   end if
  9. end
  10.